home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / util / misc / ftransd_2_1a.lha / FTransD_2.1a / ARexx-Scripts / FTToggleAL.rexx < prev    next >
OS/2 REXX Batch file  |  1995-07-15  |  848b  |  43 lines
  1. /*  $VER: FTToggleAL.rexx 1.1 (Jun  5 1995)
  2.  *
  3.  *  Arexx-Script fⁿr FTrans Arexx-Interface (c) Copyright 1995
  4.  *  by Rainer Hess
  5.  *
  6.  *  V1.0 - inital release.
  7.  *  V1.1 - ARexx-Port-Name fⁿr FTrans V1.7 geΣndert.
  8.  */
  9.  
  10. options results
  11.  
  12. /*
  13.  * rexxsupport.library einbinden.
  14.  */
  15.  
  16. if ~show('l',"rexxsupport.library") then do
  17.    call addlib 'rexxsupport.library',0,-30,0
  18.    if (result = 0) then do
  19.      say "Die rexxsupport.library kann nicht eingebunden werden!"
  20.      say "Evtl. ist die rexxsupport.library nicht installiert..."
  21.      exit
  22.    end
  23. end
  24.  
  25. /*
  26.  * LΣuft unser Ftrans mit ARexx-Port "FTRANS.1"?
  27.  */
  28.  
  29. ok = show("P","FTRANS.1")
  30. if ok = 0 then do
  31.    say 'Entschuldigung, das Programm FTrans mit Arexx-Port FTRANS.1 lΣuft nicht!'
  32.    exit 0
  33. end
  34.  
  35. /*
  36.  * Arexx-Port aktivieren.
  37.  */
  38.  
  39. address 'FTRANS.1'
  40.  
  41. AUTOLERNEN TOGGLE
  42. say 'Das Autolernen ist' result
  43.